n125= if %mdop1 == 4 { inc %mdop2 4 | set %mdop1 0 }
n126= goto mdop
n127= :dopem
n128= if %mdop.nicks [ $+ [ %mdop1 ] ] == $Null halt
n129= mode # -vvvv %mdop.nicks [ $+ [ %mdop1 ] ]
n130= inc %mdop1 4
n131= goto dopem
n132=}
n133=/mban {
n134= if (- !isin $1) || ($2 == $null) { echo -a 8,6Format is /mban <flag> <ban type> == Flags: -o, Ops only == -n, NonOps only == -a, Everyone, Suggest type 2 ban | halt }
n135= set %mban1 0 | set %mban2 0 | set %mban3 0 | unset %mban.masks*
n136= :mban
n137= if %mban2 == 4 { set %mban2 0 | inc %mban3 }
n138= inc %mban1
n139= if %mban1 > $nick(0,#) { set %mban1 0 | goto banem }
n140= if $address($nick(%mban1,#),$2) iswm $address($me,5) goto mban
n244= if %pass. [ $+ [ $1 ] ] == $Null { echo -a 8,3 $1 hasn't set a password yet. | notice $1 You haven't set a password for my partyline yet, /ctcp $me Pass <password> | halt }
n245= else { dcc chat $1 }
n246= }
n247= else { set %add.uhost.com PL | set %dcc.nick $1 | .enable #add.uhost | userhost $1 }
n314= echo -a 0,3Added: %user.addy as a(n) %user.id on $1
n315= if o isin %user.flag { notice $2 You have been added to my Ops list on $1 | notice $2 /CTCP $me PASS <password> to set your password }
n316= if f isin %user.flag { notice $2 You have been added to my Friends list on $1 | notice $2 /CTCP $me PASS <password> to set your password }
n317= :enduser
n318=}
n319=/duser {
n320= set %error Format is /ruser <#channel> <nick> --- To remove totally from userlist put #* for the channel. To remove a user with just partyline access /duser <nick>
n321= if ($1 != $null) && ($2 == $Null) {
n322= if $address($1,0) == $null { echo -a 8,3Can't find address for $1 | halt }
n323= set %user.addy $getadd($1)
n324= if $level(%user.addy) > 5 { echo -a 8,3User: %user.addy has access on a channel, use /duser <#chan> <nick> to remove them | halt }
n325= if $level(%user.addy) != 5 { echo -a 8,3User: %user.addy isn't on the Userlist | halt }
n326= remini user.ini %user.addy | echo -a 0,3User: %user.addy no longer has partyline access | .ruser %user.addy | halt
n327= }
n328= if $chr(35) !isin $1 { echo -a 8,3 %error | halt }
n329= if $2 == $null { echo -a 8,3 %error | halt }
n330= if $address($2,0) == $null { echo -a 8,3Can't find address for $2 | halt }
n331= set %user.addy $getadd($2)
n332= if $1 == #* { remini user.ini %user.addy | echo -a 0,3Removed %user.addy from Userlist | .ruser %user.addy | halt }
n333= if $readini user.ini %user.addy $1 == $null { echo -a 8,3 %user.addy has no access on $1 | halt }
n334= else {
n335= remini user.ini %user.addy $1
n336= set %user.chans $readini user.ini %user.addy Channels
n337= dec %user.chans
n338= if %user.chans == 0 { remini user.ini %user.addy | echo -a 0,3Removed %user.addy from Userlist | .ruser %user.addy | halt }
n339= else { writeini user.ini %user.addy Channels %user.chans | echo -a 0,3Removed access for %user.addy on $1 | halt }
n340= }
n341=}
n342=/shit {
n343= set %error Format is /shit <#channel> <nick> <reason>
n344= if %got.shit.add == Yes { set %got.shit.add No | set %shit.addy $2 | goto contshit }
n345= if ($chr(35) !isin $1) || ($2 == $Null) { echo -a 8,3 %error | halt }
n346= if $chr(42) isin $2 { set %shit.addy $2 | goto siteshit }
n347= if $address($2,0) == $null { set %add.uhost.com Shit | set %shit.chan $1 | set %shit.reason *3 | .enable #add.uhost | echo -a 8,3Looking up address for $2 | userhost $2 | halt }
n348= else { set %shit.addy $getadd($2) }
n349= :contshit
n350= writeini shit.ini %shit.addy $1 *3
n351= write shit.txt %shit.addy $1 *3
n352= .auser 2 %shit.addy
n353= if ($me ison $1) && ($me isop $1) { mode $1 +b %shit.addy }
n354= echo -a 0,3Shitlisted: %shit.addy on $1 for *3
n355= halt
n356= :siteshit
n357= if $3 == $Null { echo -a 8,3 %error | halt }
n358= write siteshit.txt %shit.addy $1 *3
n359= writeini siteshit.ini %shit.addy $1 *3
n360= .auser 2 %shit.addy
n361= if ($me ison $1) && ($me isop $1) { mode $1 +b %shit.addy }
n362= echo -a 0,3Shitlisted: %shit.addy on $1 for *3
n363=}
n364=/ls {
n365= if %rshit == Yes {
n366= if $chr(35) isin $1 { echo -a 9,6Removing shits on $1 }
n367= if $chr(42) isin $1 { echo -a 9,6Removing shits matching $1 }
n368= goto rshit1
n369= }
n370= if ($1 != $null) {
n371= if ($chr(35) !isin $1) && ($chr(42) !isin $1) { echo -a 8,6Format is /ls -- to list all shits and -- /ls <mask> -- to list shits matching a certain mask | halt }
n372= }
n373= if $1 == $Null { echo -a 9,6Listing all shits }
n374= if $chr(35) isin $1 { echo -a 9,6Listing shits on $1 }
n375= if $chr(42) isin $1 { echo -a 9,6Listing shits matching $1 }
n376= :rshit1
n377= set %s.search1 0
n378= if $exists(shit.ini) == $false {
n379= if $exists(siteshit.ini) == $false { echo -a 9,6 Your shitlist is empty | halt }
n434= if %rshit == Yes { set %rshit No | echo -a 9,6Total Removed: %tot.rshit }
n435= else { echo -a 9,6End of list. }
n436=}
n437=/rshit {
n438= set %error 9,6Format is /rshit <mask/channel> -- *.netcom.com would remove all shits matching *.netcom.com -- #mirc would remove all shits on channel #mirc
n439= if $1 == $null { echo -a %error | halt }
n440= if $1 != $null {
n441= if ($chr(35) !isin $1) && ($chr(42) !isin $1) { echo -a %error | halt }
n442= }
n443= set %rshit Yes | set %tot.rshit 0
n444= ls $1
n445=}
n446=/getadd {
n447= if $chr(64) isin $1 {
n448= set %add.userid $gettok($1,1,64) | set %add.userid2 %add.userid $+ @
n449= if $left(1,%add.userid) == ~ { set %len $len(%add.userid) | dec %len | set %add.userid $right(%len,%add.userid) }
n450= set %add.site $remove($1,%add.userid2) | set %add.site2 %add.site
n451= set %from.add Yes
n452= goto fromadd
n453= }
n454= set %add.userid $gettok($address($1,1),1,64) | set %add.userid $remove(%add.userid,*!*)
n455= set %add.site $address($1,2) | set %add.site $remove(%add.site,*!*@)
n456= :fromadd
n457= set %del.nums 0
n458= :delnums
n459= if %del.nums > 9 goto delstars
n460= if %del.nums isin %add.site { set %add.site $replace(%add.site,%del.nums,*) }
n461= inc %del.nums
n462= goto delnums
n463= :delstars
n464= if (** isin %add.site) { set %add.site $replace(%add.site,**,*) | goto delstars }
n465= if (%from.add == Yes) && (%add.site == *.*.*.*) {
n466= set %add.site $gettok(%add.site2,1,46)
n467= set %add.site %add.site $+ . $+ $gettok(%add.site2,2,46)
n468= set %add.site %add.site $+ . $+ $gettok(%add.site2,3,46)
n469= set %add.site %add.site $+ .*
n470= set %getadd *!* $+ %add.userid $+ @ $+ %add.site
n471= set %from.add No
n472= goto gotadd
n473= }
n474= if %add.site == *.*.*.* { set %getadd $address($1,3) | goto gotadd }
n475= if $left(1,%add.userid) == ~ { set %len $len(%add.userid) | dec %len | set %add.userid $right(%len,%add.userid) }
n476= set %getadd *!* $+ %add.userid $+ @ $+ %add.site